with AUnit.Test_Cases.Registration;
use AUnit.Test_Cases.Registration;

with AUnit.Assertions; use AUnit.Assertions;

with playlist; use playlist;

-- Template for test case body.
package body PR_xxxx_xxx is

   procedure Test_Playlist_New
      (T : in out Aunit.Test_Cases.Test_Case'Class) is
      playlist : Playlist_Type;
   begin
      Assert 
         (playlist.first = 0 , "first ist nicht = 0");
      Assert 
         (playlist.last = 0 , "last ist nicht = 0");
      Assert 
         (playlist.current = 0 , "current ist nicht = 0");
      Assert (True = is_Empty (playlist), "Playlist nach Anlegen nicht leer");
   end;

   procedure Test_Playlist_New2
      (T : in out Aunit.Test_Cases.Test_Case'Class) is
      playlist : Playlist_Type;
   begin
      null;
   end Test_Playlist_New2;

   -- Register test routines to call:
   procedure Register_Tests (T: in out Test_Case) is
   begin
      -- Repeat for each test routine:
      Register_Routine (T, Test_Playlist_New'Access, "Test Playlist new");
   end Register_Tests;



   -- Identifier of test case.  Just change the string
   -- result of the function.
   function Name (T: Test_Case) return String_Access is
   begin
      return new String'("Money Tests");
   end Name;

end PR_xxxx_xxx;

